function [discount,beca,stipend] = u22_2012(math,lang,demrecode)
%% Universidad de Tarapaca
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Beca Excelencia Acad'emica UTA
discount=0.5*(lm>=650)+0.5*(lm>=675);

%BVP
if demrecode==22091 || demrecode==22034 || demrecode==22031 || demrecode==22025 || demrecode==22041 || demrecode==22037 || demrecode==22065 || demrecode==22061 || demrecode==22059 || demrecode==22090 || demrecode==22022
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end

end
